home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Utilities / Disk / CMInstall / CLIMasterII / modules / reader.g < prev    next >
Encoding:
Gui4CLI script  |  1998-06-24  |  1.9 KB  |  116 lines
  1. G4C
  2.  
  3. winbig 0 11 640 225 "CLI-Master"
  4. winout nil:
  5. varpath "climaster/*/functions.g/readreq.g"
  6.  
  7. xonload
  8. guiopen reader.g
  9.  
  10. xonopen
  11. gosub functions.g getfile
  12. lvuse reader.g 1
  13. ifexists file env:tempfile
  14.     lvchange env:tempfile
  15.     cm_fname = Temporary
  16.     delete env:tempfile
  17. else
  18.     lvchange $cm_select
  19. endif
  20. setgad reader.g 4 off
  21. numlines = $$lv.total
  22. counter numlines dec 1
  23. setwintitle reader.g 'File: $cm_fname    Lines: $numlines                                   '
  24. lvgo first
  25.  
  26. xonclose
  27. lvuse reader.g 1
  28. lvclear
  29. lvuse climaster $cm_srce
  30. lvdir none
  31. delvar cm_fname
  32. guiquit readreq.g
  33. guiquit reader.g
  34.  
  35. xonrmb
  36. guiclose reader.g
  37.  
  38. box 382 0 250 13 out button
  39.  
  40. xlistview 0 13 0 215  "" "" "" 0 multi
  41. gadid  1
  42. gadfont topaz.font 8 000
  43. lvmulti off
  44. xlvhook 1
  45. lvmulti off
  46.  
  47. xtextin 0 0 272 13 "" cm_srch "" 512
  48. gadid 2
  49. update reader.g 3 ""
  50. if $cm_srch > ""
  51.     setgad reader.g 4 on
  52.     lvmulti off
  53.     lvgo first
  54.     lvsearch $cm_srch ci first
  55.     gosub reader.g search_update
  56. endif
  57.  
  58. xbutton 272 0 20 13 ยป
  59. gadid 4
  60. if $cm_srch > ""
  61.     lvgo #$lvline
  62.     lvmulti off
  63.     lvsearch $cm_srch ci next
  64. endif
  65. gosub reader.g search_update
  66.  
  67. xbutton 292 0 20 13 T
  68. lvmove #0
  69.  
  70. xbutton 312 0 20 13 B
  71. lvmove #$numlines
  72.  
  73. xbutton 332 0 50 13 Goto
  74. guiopen readreq.g
  75.  
  76. text 392 0 235 13 "" 29 nobox
  77. gadid 3
  78.  
  79. xroutine search_update
  80. if $$lv.line > ''
  81.     lvline = $$lv.line
  82.     update reader.g 1 $$lv.line
  83.     lvmove #$lvline
  84.     lvmulti on
  85.     update reader.g 3 "String found at line: $$lv.line"
  86. else
  87.     update reader.g 3 "String not found."
  88.     update reader.g 2 ""
  89.     lvmove #0
  90.     update reader.g 1 $$lv.line
  91.     setgad reader.g 4 off
  92. endif
  93.  
  94. ;--------------------------------------------
  95.  
  96. newfile readreq.g
  97.  
  98. winbig -1 40 110 13 "Goto Line:"
  99. wintype 11000000
  100. varpath "reader.g"
  101.  
  102. xonopen
  103. setgad readreq.g 1 on
  104.  
  105. xtextin 0 0 110 13 "" jmpto "" 7
  106. gadid 1
  107. lvuse reader.g 1
  108. if $jmpto > ""
  109. and $$lv.line > ""
  110.     lvmove #$jmpto
  111.     update readreq.g 1 ""
  112. endif
  113. guiclose readreq.g
  114.  
  115. ;--------------------------------------------
  116.